home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / mathtrans.inc < prev    next >
Text File  |  1998-06-24  |  2KB  |  120 lines
  1. pattern SPAtan(_parm) is
  2.     push a6;
  3.     d0.l:=_parm;
  4.     a6:=MathTransBase; jsr [a6-30];
  5.     pop a6;
  6. endp;                                                            # SPATAN
  7.  
  8. pattern SPSin(_parm) is
  9.     push a6;
  10.     d0.l:=_parm;
  11.     a6:=MathTransBase; jsr [a6-36];
  12.     pop a6;
  13. endp;                                                            # SPSIN
  14.  
  15. pattern SPCos(_parm) is
  16.     push a6;
  17.     d0.l:=_parm;
  18.     a6:=MathTransBase; jsr [a6-42];
  19.     pop a6;
  20. endp;                                                            # SPCOS
  21.  
  22. pattern SPTan(_parm) is
  23.     push a6;
  24.     d0.l:=_parm;
  25.     a6:=MathTransBase; jsr [a6-48];
  26.     pop a6;
  27. endp;                                                            # SPTAN
  28.  
  29. pattern SPSincos(_cosResult,_parm) is
  30.     push a6;
  31.     safe d1.l:=_cosResult; d0.l:=_parm;;
  32.     a6:=MathTransBase; jsr [a6-54];
  33.     pop a6;
  34. endp;                                                            # SPSINCOS
  35.  
  36. pattern SPSinh(_parm) is
  37.     push a6;
  38.     d0.l:=_parm;
  39.     a6:=MathTransBase; jsr [a6-60];
  40.     pop a6;
  41. endp;                                                            # SPSINH
  42.  
  43. pattern SPCosh(_parm) is
  44.     push a6;
  45.     d0.l:=_parm;
  46.     a6:=MathTransBase; jsr [a6-66];
  47.     pop a6;
  48. endp;                                                            # SPCOSH
  49.  
  50. pattern SPTanh(_parm) is
  51.     push a6;
  52.     d0.l:=_parm;
  53.     a6:=MathTransBase; jsr [a6-72];
  54.     pop a6;
  55. endp;                                                            # SPTANH
  56.  
  57. pattern SPExp(_parm) is
  58.     push a6;
  59.     d0.l:=_parm;
  60.     a6:=MathTransBase; jsr [a6-78];
  61.     pop a6;
  62. endp;                                                            # SPEXP
  63.  
  64. pattern SPLog(_parm) is
  65.     push a6;
  66.     d0.l:=_parm;
  67.     a6:=MathTransBase; jsr [a6-84];
  68.     pop a6;
  69. endp;                                                            # SPLOG
  70.  
  71. pattern SPPow(_power,_arg) is
  72.     push a6;
  73.     safe d1.l:=_power; d0.l:=_arg;;
  74.     a6:=MathTransBase; jsr [a6-90];
  75.     pop a6;
  76. endp;                                                            # SPPOW
  77.  
  78. pattern SPSqrt(_parm) is
  79.     push a6;
  80.     d0.l:=_parm;
  81.     a6:=MathTransBase; jsr [a6-96];
  82.     pop a6;
  83. endp;                                                            # SPSQRT
  84.  
  85. pattern SPTieee(_parm) is
  86.     push a6;
  87.     d0.l:=_parm;
  88.     a6:=MathTransBase; jsr [a6-102];
  89.     pop a6;
  90. endp;                                                            # SPTIEEE
  91.  
  92. pattern SPFieee(_parm) is
  93.     push a6;
  94.     d0.l:=_parm;
  95.     a6:=MathTransBase; jsr [a6-108];
  96.     pop a6;
  97. endp;                                                            # SPFIEEE
  98.  
  99. pattern SPAsin(_parm) is
  100.     push a6;
  101.     d0.l:=_parm;
  102.     a6:=MathTransBase; jsr [a6-114];
  103.     pop a6;
  104. endp;                                                            # SPASIN
  105.  
  106. pattern SPAcos(_parm) is
  107.     push a6;
  108.     d0.l:=_parm;
  109.     a6:=MathTransBase; jsr [a6-120];
  110.     pop a6;
  111. endp;                                                            # SPACOS
  112.  
  113. pattern SPLog10(_parm) is
  114.     push a6;
  115.     d0.l:=_parm;
  116.     a6:=MathTransBase; jsr [a6-126];
  117.     pop a6;
  118. endp;                                                            # SPLOG10
  119.  
  120.